;BPPCFix is used to block the ppc.library rom, so that the ppc-lib-emu can be used under WARP-OS.
;This would normally reboot the system and the 'Fix is installed, up, and running. I did not set the reboot option as OxyPatcher also needs to reboot. I let BPPCFix install itself, and leave OxyPatcher to do the reboot, Both programs are then running, and speeding the reboot times at the same time.
;When the Amiga reboots, the ">NIL:" means that any messages saying that BPPCFix is already ;installed will not show up in a window
OpenOxyPPort
;This is to get OxyPatcher up and running. It then reboots as mentioned above.
KeyPressed 64
IF WARN
Execute S:startup-sequence2
EndCLI >NIL:
Quit
ENDIF
KeyPressed 96 97 99
IF WARN
Execute S:startup-sequence3
EndCLI >NIL:
Quit
ENDIF
;KeyPressed is a program that recognises when a key has been pressed, and will do the appropriate ;action. See WBScreens.text
; $VER: Startup-Sequence_HardDrive 40.2 (25.2.93)
; Startup-Sequence for hard drive systems
C:SetPatch QUIET
C:NewWPA8
;This is used to improve the speed of chunky-planar graphics. I think this was also used for the ;program RTGMaster, and others.
C:Idefix
;This starts the EZ-IDE software that makes use of the 4-way buffered device I have installed
C:Version >NIL:
C:AddBuffers >NIL: DF0: 15
FailAt 21
C:MakeDir RAM:T RAM:Clipboards
Resident >NIL: C:Assign PURE
Resident >NIL: C:Execute PURE
c:MountENV
;This leaves ENV: on the hard drive, speeding up the boot process and saving precious fast-ram
c:MCP
;What doesn't this do? Rom-to-fast-ram, black borders, gui extras. Hundreds of things easily ;changeable through a MUI or text editor. Text editor is harder, and you must know what you are ;doing.
Assign >NIL: T: RAM:T
Assign >NIL: CLIPS: RAM:Clipboards
Assign >NIL: REXX: workbench:REXX
;I added this because I have always used AREXX quite a lot. With OS3.5, I have even more scripts, ;and really needed to keep the files in S; separate. This makes things a little tidier.
Assign >NIL: PRINTERS: DEVS:Printers
Assign >NIL: KEYMAPS: DEVS:Keymaps
Assign >NIL: LOCALE: SYS:Locale
Assign >NIL: LIBS: SYS:Classes ADD
Assign >NIL: HELP: LOCALE:Help DEFER
BindDrivers
C:Mount >NIL: DEVS:DOSDrivers/~(#?.info)
IF EXISTS DEVS:Monitors
IF EXISTS DEVS:Monitors/VGAOnly
DEVS:Monitors/VGAOnly
EndIF
C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"